home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / pasprog.EXE / EXEWRITE.PAS < prev    next >
Pascal/Delphi Source File  |  1995-08-21  |  837b  |  34 lines
  1. var
  2.  dosya  : file;
  3.  buf    : array[1..256] of byte;
  4.  i      : word;
  5.  mes    : string;
  6.  sayi1  : word;
  7.  sayi2  : word;
  8.  size   : longint;
  9.  
  10. begin
  11.  assign(dosya,paramstr(0));
  12.  reset(dosya,1);
  13.  seek(dosya,2);
  14.  blockread(dosya,sayi1,2);
  15.  blockread(dosya,sayi2,2);
  16.  size:=sayi1+((sayi2-1)*512);
  17.  
  18.  if filesize(dosya)=size then writeln('Henuz bir sey yazilmamis.') else
  19.  begin
  20.   write('Su andaki mesaj : ');
  21.   seek(dosya,size);
  22.   blockread(dosya,buf[1],(filesize(dosya)-size));
  23.   for i:=size to filesize(dosya) do write(chr(buf[i-(size-1)]));
  24.   writeln;
  25.  end;
  26.  write('Dosyanin sonuna eklenecek olan mesaji giriniz : ');readln(mes);
  27.  seek(dosya,size); {*}
  28.  truncate(dosya);  {*}
  29.  if mes='' then halt(0);
  30.  for i:=1 to length(mes) do buf[i]:=ord(mes[i]);
  31.  blockwrite(dosya,buf[1],length(mes));
  32.  close(dosya);
  33. end.
  34.